home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / zcommbar.zip / 202.T < prev    next >
Text File  |  1987-12-22  |  2KB  |  47 lines
  1. begin:      ena -8g;cls;lput \r
  2.             lput " ╒ 202 Directory ════════════════════╕\r\n"
  3.             lput " │ a - Net Exchange                  │\r\n"
  4.             lput " │ b - Arquimedes                    │\r\n"
  5.             lput " │ c - Darwin                        │\r\n"
  6.             lput " │ d - Info Tech Center              │\r\n"
  7.             lput " │ e - Wizards BBS                   │\r\n"
  8.             lput " │ f - Capitol Connection            │\r\n"
  9.             lput " │ g - Capitol PC Users Group        │\r\n"
  10.             lput " │ h - Telecommunications BBS        │\r\n"
  11.             lput " │ m - PC Tie                        │\r\n"
  12.             lput " │ n - Computer Connections II       │\r\n"
  13.             lput " │ o - Data-Bit                      │\r\n"
  14.             lput " │ p - East Coast Forth Board        │\r\n"
  15.             lput " │ q - Iceman's Castle               │\r\n"
  16.             lput " │ r - W3INK                         │\r\n"
  17.             lput " │ s - Programmer's Toolbox          │\r\n"
  18.             lput " │ t - Gannett News                  │\r\n"
  19.             lput " │ u - Boyan                         │\r\n"
  20.             lput " │ v - Discovery                     │\r\n"
  21.             lput " │ 1 - New City     0 - Redial       │\r\n"
  22.             lput " ╘═══════════════════════════════════╛\r\n"
  23.           acceptl1 s1 "Letter ?"
  24.           if is1,v put "d689-2032\r"
  25.           if is1,u put "d495-7323\r"
  26.           if is1,t put "d524-3982\r"
  27.           if is1,s put "d540-7230\r"
  28.           if is1,r put "d258-9044\r"
  29.           if is1,q put "d654-6872\r"
  30.           if is1,p put "d442-8695\r"
  31.           if is1,o put "d370-9832\r"
  32.           if is1,n put "d547-7621\r"
  33.           if is1,m put "d972-1622\r"
  34.           if is1,h put "d478-9850\r"
  35.           if is1,g put "d949-8848\r"
  36.           if is1,f put "d547-2008\r"
  37.           if is1,e put "d322-8678\r"
  38.           if is1,d put "d275-1050\r"
  39.           if is1,c put "d251-9206\r"
  40.           if is1,b put "d698-8230\r"
  41.           if is1,a put "d689-3561\r"
  42.           if is1,1 break; put \rD\r;call city.pursuit.t
  43.           if is1,0 put r\r;pat 1 S?;wait;put 5\r
  44.           pat 1i LINE;pat 2 *;wait
  45.           if !1 goback begin
  46.           t
  47.